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ie CJPYRIGHT (c) 1978, 1980, 1982, 1984 B 

ie DIGITAL EQUIPMENT CORPORATION, ° MAYNARD. MASSACHUSETTS. 

is ALL RIGHTS RESERVED 

ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ie ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


* 
* 
* 
* 
* 
* 
* 
* 
* 
© 
ie TRANSFERRED. : 
* 
* 
* 
* 
— 
* 
* 
® 
* 


— —2— ee — — — — — 


DWDONAVSWUN ⸗oO — ⏑ - 
Oo —— 


ak a ôů E— — — — i dt α, 


— — — — — ———— 


ie 
0 ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
0 :. CORPORATION. 
ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
i. SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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DSKEY VAX=11 CONVERT 18-5 =1984 00:01:46  VAX-11 BLiss-32 v4.0-742 p 
y0n 080 akties ri ed a Gt — 


mer 


; 8 1 : 
3 33 1 PSECT 3 
; «6 1 OWN = _CONVSOWN (PIC), : 
; 61 1 GLOBAL = “CONV$SGLOBAL (PIC) : 
3 ¢ 1 PLIT = “CONVSPLIT  (SHARE,PIC), : 
; 63 1 CODE = “CONVSCODE (SHARE,PIC): : 
; «665 1 LIBRARY * SYSSLIBRARY #1 18.132"; : 
3 66 1 LIBRARY 'SRC$:CONVERT'; : 
36 1 
8 Error codes : 
; 26 DEF INE_ERROR_CODES; i 
3 if: 1 EXTERNAL ROUTINE : 
ee 1 CONVSSEXTEND_AREA CLSEXTEND_AREA NOVALUE, : 
2. 1 CON V CLSGET : 
: 75 1 CONVSSINIT_FAST_LOAD CLSINIT_FAST LOAD, 
; 06 07 i CONVSSLOAD. SECONDARY CLSLOAD= SECONDARY NOVALUE, 
; «78 0076 1 CONV$SREAD_PROLOGUE CLSREAD_PROLOGUE NOVALUE, 
: 79 907 1 CONVSSRMS_OPEN ERROR NOVALUE; 
: 80 O78 1 CONVSSSET KEY DESC CL$SET_KEY_DESC 
; 81 0079 1 CONVSS$SORT_ SECONDARY CLSSORT_ SECONDARY 
; : 080 1 ONVSSWRITE_AREA_ DESC CLSWRITE_AREA_DESC  NOVALUE, 
: 83 11 VSSWRITE-KEY BESC CLSWRITE-KEY_DESC NOVALUE,; 
Bb 08 i CONVSSWRI TE PROLOGUE NOVALUE; 
3 HY 084 1 MACRO 
; m 0085 1 DEF INE_XAB_GLOBAL = GLOBAL REGISTER 
; 88 90 1 XAB = 10 : REF BLOCK C ,BYTE J%, 
: 90 m 00 8 1 DEF INE_XAB = EXTERNAL REGISTER 
: 91 203 XAB : REF BLOCK C ,BYTE J2; 
; 38 B98 1 LINKAGE 
3 9% 009¢ 1 ALSMAKE_DESCRIPTOR = JSB : GLOBAL ¢ XAB = 10, 
3 95 999 1 KEY_DESC = 11°), 
3 (96 094 1 ALSCHECK_XAB = JSB : GLOBAL ( XAB = 10, 
: 97 95 1 KEY_DESC =11), 
: 98 096 1 ALSSTUFF_KEY_DESC = JSB : GLOBAL ( XAB = 10, 
: 8 09 i KEY_DESC = 11°); 
: 101 039 1 FORWARD ROUTINE 
: 1 ¢ 00 1 MAKE_DESCRIPTOR : ALSMAKE_DESCRIPTOR  NOVALUE, 
: 108 101 1 HECR_X : ALSCHECR_XAB, 
; 1 : i 4 STUFF -KEY_DESC : ALSSTUFF-KEY. DESC NOVALUE; 
: 196 104 1 EXTERNAL 
: 10 105 1 CONVSAB_FLAGS : BLOCK C ,BYTE J, 
3 198 ; : CONVSAR_OUT_FILE_NAM : REF DESC_BLK, ' Output File 
3 110 108 1 CONVSAB_OUT_XABSUM : SXABSUM_DECL, 
> 111 109 1 CONV$AB~OUT~NAM : $NAM_DECL, 
: 118 110 1 CONVS$AB_OUT-FAB : SFAB-DECL, 
Py V = — = e 

113 i CONV$AB~OUT~RAB SRAB-DECL 


DSK VAX=11 CONVERT Ibe ep-1984 00:01:4 VAX=-11 Bliss-32_V4.0-742 4 
Weehh — 99:94:28 ST xSuMeAAS TERS t CCONV. SRC JADDKEY.B32; eoe (3) 
: 11 131 CONVSAB_FDL_FAB : REF BLOCK C{ ,BYT 
: i 118 CONVSAB-FDL-RAB : REF BL ork BVTE }- 

: 4 116 CONVSGL_WORK_F, 

: 4 118 1 CONVSGL_KEY_DESC_BUF, 

> 121 119 1 CONVSGL-KEY-DESC-VBN, 

3 ; ¢ : 9 : CONVSAR_AREA_BLOTK : REF BLOCKVECTOR C ,AREASC_BLN,BYTE J; 
; 124 1 : 1 GLOBAL 

3 ; 2 : ? ; CONVSGL_ADD_DELE_KEY : LONG; 
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ZSBTTL ‘OPEN_OUTPUT' 

GLOBAL L ROUTINE ADDSSOPEN_OUTPUT = 

! Functional Description: 
= the output file, connects a ay ool etreen and 
locates ne fills in the prologue key 

ores descriptor blocks for sort and or Yeast load 

i Calling Sequence: 

ADDSSOPEN_OUTPUT 


i Input Parameters: 
i none 


' 
: 
1 
t 
t 
4 
ft 
1 
1 
J 
' 
1 
4 
! 
: Implicit Inputs: 

: CONVSAB_OUT_FAB = Output fab 

i Qutput Parameters: 

; none 

Implicit Outputs: 

: CONVSAB_FLAGS C CONV$V_OUT J - Set on success 
Routine Value: 

: CONVS_SUCCESS or error 

; Routines Called: 

i 

t 
1 
1 
ft 
' 
t 
f 
a 


5* 

soe RMS_OPEN_ERROR - By RMS as an AST 
TT saad 

CONVSSREAD_PROLOGUE 

SCONNECT 

i Side Effects: 

' none 


BEGIN 

: Any rms errors on the output fab are OPENOUT errors 
: CONVSAB_OUT_FAB C FABSL_CTX J) = CONVS_OPENOUT; 

: Use the file name in the call argument 

CONVSAB OUT_FAB { FABSB_FNS ) = .CONVSAR_OUT 


PIPPI PIP IDI IN at at at at at a a a a kk kk kd dt 
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<<“ > 


nv. 1. SRCIADOKEY. 832; 


VFILE NAM f DSC$ 
CONVSAB_OUT"FAB [C FABSL-FNA J = .CONVSAR-OUT"FILE-NAM [ DSCS$. 


if — ————— 
SOPEN( FAB=CONVSAB_OUT_FAB,ERR=CONVSSRMS_OPEN_ERROR ); 


: If we got here then we have opened a file. 
CONVSAB_FLAGS C CONVSV_OUT } = _SET; 
H Is*t not very exciting if it's not an index file 
if CONVERS _OUT FAS C FABSB_ORG ] NEQU FABSC_IDX 
RETURN CONVS_NOTIDX; 
: Connect the file for Block 10 for reading the prologue. 
SCONNECT ( RAB=CONVSAB_OUT_RAB,ERR=CONVSSRMS_OPEN_ERROR ); 
: Read the prologue 
CONVSSREAD_PROLOGUE () ; 


! Any errors on the output rab should be write errors (exceptions are in 
the fast load code 


CONVSAB_OUT_RAB [ RABSL_CTX J] = CONVS_WRITEERR; 
: Return normally 

RETURN CONVS_SUCCESS 

END; 
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«TITLE ADDSKEY VAX-11 CONVERT 
-IDENT \Vv04-000\ 


«PSECT _CONVSGLOBAL .NOEXE, PIC,2 


00000 CONVSGL_ADD DELE_KEY:: 
-BLRB & 


.EXTRN coMveRTs FACILITY 

OLMAX, CONVS BADBLK 
SEXTRN CONV =BADLOGIE, CONVS_BADSORT 
EXTRN CONVS$~CONFQ CONV ONvg=CR CREATEDSTR 
SEXTRN CONV =CREA_ mae 


sin CON S"FILLIM 
“IDX_LIM, CONV$_TLL_KEY 
“Weyl 
— shes 

CONVS_KEY 
CONVS yh JADIDX 


6, CON 
We Wui 
— coönve NOW 
R, CONV *APENEXC 
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im 
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$34 
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0006 
00700006 


000000006 
00006 


3; Routine Size: 84 bytes, 


Routine Base: 


18-50 


OFFC 00000 
39 00006 8 
» eee ee 
bone 
50 000000006 &F D 

—A8 

of 
gf 000000006 f Dd 7 


-CONVSCODE + 0000 


be 13:94:08 


-PSECT 
-ENTRY 


VAX-11 Ol issese v4.0- page 


DISKSVM ER: CCONV. SReIADDKEY .B32: 1 
-OPENIN, CONVS OPENOUT 


“PAD , 
“READER COONS RO” ome 
* di 


yg ONS DUDE BLK 


ONV + haa FAST_LOAD 
ane 


—— 
eeee-" 


CONVSGL _KEY_DESC_BUF 
7 DESC WS 


ARE BLOTE 
— NOWRT, SHR, 


MMMMMMMMOMMOOOOOON 


PIC.2 


Set ett 4 Save R2,R3,R4,R5,R6,R7,- : 0126 


CON Onn OUT_FILE_NAM + 0179 
(RO) CONVSAB OUT _FAB+ 89 ; 
4(ROS, CONVSAB_OUT_FAB+44 : 0180 
CONVS$RASe OPEN“ ERROR : 0182 
ig ese soul FAB 3 
ayia AGss2 + 0186 
VSAB_OUT~ FABS 9, #32 ; 0190 
#CONVS_NOTIDX, RO ; 0192 
CONVSSAAS — ERROR : 0196 
Sat ater PROLOGUE : 9 99 
_WRITEERR, CONVSAB_OUT_RAB+24 ; 95 
> 0211 


<>» 


411 
VAX=11 CONVERT 16-Sep-1984 00:01:46  VAK=11_ BLiss-32_v4.0-742 p 
CHECK KEY eats a et bee ot et oα νν 
XSBTTL _"CHECK_KEY' 
GLOBAL ROUTINE ADDSSCHECK KEY : ALSCHECKKEY = 


* 


— — — — 


Functional Description: 
This routine parses the fdl file and searches for the proper key xab 
‘y,one 1s found it is writes and a index descriptor is Bdded tothe 

! Calling Sequence: 

ADDSSCHECK_KEY() 


Input Parameters: 
none 


Implicit Inputs: 


REFUND DNOUFS WI "O0ONO 


Output Parameters: 
none 

Implicit Outputs: 

Routine Value: 


Routines Called: 


: Check the key against the file 
IF .CONVSGL_ADD_DELE_KEY NEQU .CONVSAB_OUT_XABSUM [ XABSB_NOK ] 
RETURN 0; ! illegal key value 
: Find the key xab described by the fdl file (first parse it) 
it wor ( STATUS = CONVSSPARSE_DEF() ) 
RETURN .STATUS; 


8 

4 

48 Side Effects: 

49 none 

50 

51 te 

2 BEGIN 

55 DEF INE_XAB_GLOBAL; 
2 DEF INE_KEY_DESC; 
58 LOCAL 

59 STATUS; 

60 

8 

65 

8 
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“11 Oi iss =32 
TER: 


1 Qnvent ifcdeoct9me uurz yatedt at 


' Get the first xab 

KAB = .CONVSAB_FDL_FAB C FABSL_XAB J; 

: Loop until xabs are exausted or the correct one is found 
1 


v4.0 
CONV. “ERE DADOKEY. 832; ° 9 53 


or 
Ka 


C 


VNNNNNO Pfc 


SOGSGOOSOOOOSOOSOSOSOSOSOOOOSOOOOOOOOSOOOOOOOOOOOOOO Cc 
ARAVA SOS VARA LOOM IEA IO SOS 


2588 


öV— 


WHILE .xas NEQU 0 
BEGIN 
: Is this a key xab? 
If _.XAB C XABSB_COD J EQLU XABSC_KEY 
THEN 


Is it the right one? 
o om C XABSB_REF J] EQLU .CONVSGL_ADD_DELE_KEY 
EXITLOOP; 
XAB = .XAB C XABSL_NXT J 
END; 
Did we find it? 
If .XAB EQLU 0 
THEN 
RETURN 0; ! key not defined 
: Check the xab to see if it is a valid key 
A NOT ( STATUS = CHECK_XAB() ) 


"RETURN eSTATUS; 
SIGNAL _STOP( CONVS -PLV, STATUS, .CONVSGL_ADD_DELE_KEY ); 


MAKE _DESCRIPTOR(); 
RETURN CONVS_SUCCESS 
END; 


5A DD 00000 ADDSSCHECK KEY:: 


PUSHL : 021 
0000" CF 00006 CF 08 00 €D 00002 CRPIY #0. #8, CONVSAB_OUT_XABSUM+9, : 9333 
. bad ** 80 _DELE_KEY ; 
00006 CF i tf FB CALLS A7GONVESPARSE. DEF > 0265 
4 E 1 BLBC Atys : 
1 00 06 CF 06 1 MOVL fon AB _ FDL FAB, R1 : 0271 
A Al D 1A MOVL (R1),7 : 


: Routine Size: 


VAX=11_ CONVERT 
CHECK _KEY 


77 bytes, 


DA 


Routine Base: 


— 2 


Hoe 
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“i 
0000V t f 
j i if 4$: 
© 88 doose * 


-CONVSCODE + 0054 


AOLx<— Mm 
Syayouw 


re 


nous 


VAX-11 
DISKSVM 


AB), #21 


Bliss-32 V4.0-742 
ER: ct CONV. SRCJADDKEY.632; 1 


VMSMAST 


+ #8, 23(XAB), CONVSGL_ADD_DELE_KEY 


MAB), XAB 
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fege 10 


036 
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SKEY VAX=-11_ CONVERT 16-Sep-1 01:4 VAX-11 Bliss-32 V4.0-74 Pp 1 
—R MAKE _DESCRIPTOR 13-305-1382 99:93:28 DL SKSVMSHASTERSCCONV. SREIADDKEY.832:1°%" (b) 
1 ZSBTTL ‘MAKE DESCRIPTOR’ 
! ROUTINE MAKE DESCRIPTOR : ALSMAKE_DESCRIPTOR NOVALUE = 


Functional Description: 


Allocates and writes a key descriptor to the file then Links 
it into the key descriptor chain 


Calling Sequence: 

MAKE _DESCRIPTOR() 
Input Parameters: 

none 


— Hb — 


Implicit Inputs: 


VFWN—OOONOULS UT 


Output Parameters: 
none 


UEWN—OVODOnauw 


Implicit Outputs: 


Routine Value: 
none 


Routines Called: 


Side Effects: 
none 


NOUS WIN OOO 


BEGIN 


DEF INE_XAB; 
DEF INE_KEY_DESC; 


LOCAL 


: Check to see if the new key descriptor fits if not extend the file 


IF 1 GTRU ( .CONVSAR_AREA_BLOCK f Q.AREASL_CNBLK )- 
ad — C O.AREASL-USED } ) 


CONVSSEXTEND_AREA( 0 ); 
: Update the area descriptor and save the vbn 
CONVSGL_KEY_DESC_VBN = .CONVSAR_AREA_BLOCK C O,AREASL_NXTVBN J; 


CONVSAR_AREA_BLOCK C 0,AREASL_NXTVBN } = 
~CONVSAR_AREA_BLOCK C 0,AREASL_NXTVBN ) + 1; 


SSUES us 
Oc UENO OONOULWN OO 


Wa bb ee —— 


AAAI 


SEES SO SS ANATN 
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Weehohl MAKE DESCRIPTOR i$ }eont94e 1373:28 —-iScSumemaSfenccConv.SReIAppKev.e32:1°%° «os 
ns e CONVEARC AREA BLOCK C 0,AREASL_USED J + 1; 
: Update the area desc so as to remove the hole we just made 
CONVSSWRITE_AREA_DESC( 0 ); 
: Make your own key descriptor in the normal buffer (VBN already set) 
KEY_DESC = .CONVSGL_KEY_DESC_BUF; 
STUFF _KEY_DESC(); 
: Save VBN 
VBN = .CONVSGL_KEY_DESC_VBN; 
} Write the descriptor we just made 
CONVSSWRITE_KEY_DESC(); 
: Get the key desc just before the one we added 
CONVSSSET_KEY_DESC( .CONVSGL_ADD_DELE_KEY - 1 ); 
KEY_DESC C KEYSL_IDXFL J] = .VBN; 
: Update the key desc making the new one in the chain 
CONVSSWRITE_KEY_DESC(); 
RETURN 
1 END; 


— — 


52 DD 00000 MAKE_DESCRIPTOR: 
PUSHL 


50 00006 CF D MOVL NVSAR_AREA plore. RO 
50 10 40 14 A ; 3; SUBL3 (RO), 16(RO), 
F 
apie § 


0000G CF D 

0000G CF is AQ D 
—1 A 
14 4 


20000 


ouvuimi 
—DOOW 


=(SP) 
BSBW CONVESEXTEND_ AREA 


1$: MOVL ONV AR _AREA_BLOCK, RO 
MOVL 4(RO), “CONVSGL_KEY_DESC_VBN 
4(R i 


1 
& 
7 
Vv 
INCL 
INCL ocr 
CLRL R 
A 


4 
BSBW CONVSSWRITE AREA_D 
5B 00006 CF p MOVL  CONVS$GL hey —B “BUF, KEY_DESC 3 
52 oooosꝰꝰ * 83 eee VBN, VBN Be 
00506 g BSBW  CONVSSWRITE“KEY DESC’ 0 


| 
| 
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: Routine Size: 


MAKE DESCRIPTOR 
7E 0000" CF 


82 bytes, 


Routine Base: 


=-CONVSCODE + OOA1 


— 


if: Sep 1964 99:94:28 UEScdlnGhaSTensctony. sae aappKey.832:4 


#1 VSGL_ADD_DELE_KEY, (SP) 
oa KEY * 


VEN, 
CONVSSWRITE. rey DESC 


a by 


; 0392 


394 
398 
; Sade 


N11 
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* 
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3 1 XSBTTL ‘CHECK XAB’ 
404 1] ROUTINE CHECK RAB : ALSCHECKXAB = 


' 

} Functional Description: 
Does consistancy checking of the key xab for correctness 
Calling Sequence: 


CHECK_XAB 


— 


a ed a ee a ed ed ed 
= 


Wn— DONOUE WI ODDNAME UII OD 


Input Parameters: 
none 
Implicit Inputs: 


Output Parameters: 
none 


o 
eS 


Implicit Outputs: 


ööö—ööö]— 


4 
4 Routine Value: 
434 
435 
4 Routines Called: 
rh 4 none 
439 Side Effects: 
440 none 
441 
44 -- 
44 
rr 

6 DEF INE_XAB; 
447 


4 ye C XABSB_IAN ] NEQU .XAB C XABSB_LAN J 

RETURN RMS$_IBK; ! Illegal area 

; Check to see if the areas are in range 

If .XAB C XABSB_IAN ]J GEQU .CONVSAB_OUT_XABSUM [ XABSB_NOA ] 
RETURN RMS$_IAN; ! Illegal area 

I a C XABSB_LAN ] GEQU .CONVSAB_OUT_XABSUM [ XABSB_NOA J 
RETURN RMS$_LAN; ! Illegal area 

if gas C XABSB_DAN ] GEQU .CONVSAB_OUT_XABSUM C XABSB_NOA J 
RETURN RMS$_DAN; ! Illegal area 
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C 
: Stuff some calculated variables 


KAB [ XABS$B_IBS ] = .CONVSAR_AREA_BLOCK [ .XABL XABSB_IAN ],AREASB_ARBKTSZ 1: 
XAB C XABSB-DBS J] = .CONVSARAREA-BLOCK [ .XABL XABSB-DAN J,AREASB-ARBKTSZ J: 


: Check data type 

if —* C XABSB_DTP J] GTRU XABSC_MAXDTP 
RETURN RMS$_DTP; 

BEGIN 


LOCAL 
TOTAL SIZE : LONG INITIAL(O); 


! Invalid data type 


IND 
KEY_SIZE = XAB ( XABSB_SIZO ] : VECTOR C .BYTE 
KEY-POS = XAB C XABSWIPOSO J : VECTOR C ,WORD 


! Get the # of segments, total size of the ney and the min record size 
H NOTE: NSG and MRL will be zero from FDLSPARSE 


INCR I FROM 0 TO 7 BY 1 
DO 


Is there a key here 
If .KEY_SIZE C .1 J] NEQU 0 
THEN 
BEGIN 
XAB C XABSB_NSG ] = .XAB C XABSB_NSG J + 1; 
} Find the total key size 
8 eKEY_SIZE C .1 J GTRU .TOTAL_SIZE 
TOTAL_SIZE = .KEY_SIZE C .1 1; 
: Sind the min. record size 
A aa C XABSW_MRL J] LSSU .KEY_SIZE C .1 ] + .KEY_POS C .1 ] 
XAB C XABSW_MRL J) = .KEY_SIZE C .1 J] + .KEY_POS C .1 ] 
END; 
Check # of segments 
if —8 C XABSB_NSG ) EQLU 0 
RETURN 0; ! Invalid key 
; Check key size 
IF .TOTAL_SIZE GTRU 255 


0-742 
OW. SREJADDKEY.B32:1°" (5 
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11 CONVERT 16-56 =1984 th VAK=11_ BLiss-32_V4.0-7 
K_XAB Bb 188e Pity ee RhlS eRe Hb 0 ea woocey.030:0°% cdf 
EN 
oi gg RETURN RUSS_KSZ 
xas t WABSB_TXS 1 = .TOTAL_SIZE 


a 
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END; 
H Check record size 


ir ( ~ CONVSAB OUT_FAB C_FABSW_MRS J] NEQU 0 ) 
( .CONVSAB_OUT_FAB C FABSQ_MRS J LSSuU xAB ave XABSW_MRL J ) 


EAM —OODONOUSW 


RETURN RMS$_POS; ! Invalid key position 
5 RETURN CONVS$_SUCCESS 
3 8 88 : 
05 END; 
OC BB 00000 CHECK_xAB: 
PUSHR #*M<R2,R3> : 0404 
09 AA 08 beer Pt XAB) . 9(XAB) s 0442 
50 0001877¢ MOVL #100220, RO + 0444 
50 00006 1$ MOVZBL ONVSAB_OUT_XABSUM+8, RO + 0448 
50 CMPB (XAB),"R : 
BLSSU-2$ F 
50 00018554 MOVL #99668, RO + 0450 
50 99 2$: CHER 9(XAB) , RO + 0452 
50 000185AC ROVE #99756, RO + 0454 
50 0A 3$: CMP 10(XAB), RO ; 0456 
50 0001848¢ Ov #99516, RO : 0458 
0 08 4 4$ MOVZBL 8(XAB), Ro > 0462 
50 ASHL #6, RO, R 3 
0 00 96 ADDL2 OhySAR AREA_BLOCK, RO : 
Oc AA MOVE 9 ), T2(xaB) ; 
A MOVZBL OCKAB) RO + 0463 
50 ASHL # 3 
a ADDL2 ith tata REA. BLOCK, RO ; 
OD AA MOVE 3(xAB : 
07 CMPB a7 + 0467 
BLEQU bs 3 
50 000184E4 MOVL #99556, —8 oa69 
5$: BRB 14$ ; 
és: CLRL TOTAL_SIZE mt 
7$: MOVZBL oxtn. R1 ; tba 


51 2 - 
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12 
SKEY VAX-11 CONVERT 18-5¢ -1984 00:01:4 VAX-11 Bliss-32 V4.6-742 Page 17 
y0n 000 CHECK_XAB 1 =300n 138% 99:04:08 DISKSVMSMASTER: CCONV.SRCJADDKEY.B32; 1°” J 
14 AA OY NCB (XAB) : 0492 
52 of MPL  R1, TOTAL_SIZE ; rea 
B 008A see AT. rorat_siz : 0498 
38 1€ “ie af 8$: nOvzyL 3 (XA CIT, 9 + 0502 
51 18 AA 10 ’ FD 3 8 ’ #16, 24(KAB), R1 : 
18 AA 1 6B 9D MOVW RI, 24(XAB) + 0504 
D6 50 7 F Al 9S: AOBLEQ # 7$ : 488 
14 AA ? A ISTB 20 (XAB) : 051 
QOO000FF  8F : D AA CMPL TOTAL_SIZE, #255 : 0516 
1 8} BLEGU Mis : 
50 000185A4 8F D B MOVL #99748, RO + 0518 
» ¥ BA 108: BRB 14$ : 
16 AA 2 30 BC 11$: MOVB  TOTAL_SIZE, 22(xAB) : 0520 
50 00006 CF ¢ C MOVZWL FONV AB_OUT_FAB+54, RO + 0526 
Fj t BEQL $ F 
50 18 AA Bi 000C CMPW 4(XAB), RO + 0527 
9 18 0 CB BLEQU $ : 
50 00018624 8F D CD MOVL #99876, RO + 0529 
7 11 00004 BRB 4$ : 
50 1 D0 0 06 12$: MOVL #1, RO + 0531 
: 11 000D BRB 14$ ; 
D4 000DB 13$:  CLRL RO + 0533 
0c BA O0DD 14$: POPR #*M<R2,R3> : 
5 OO0DF RSB F 


3; Routine Size: 224 bytes, Routine Base: _CONVSCODE + 00F3 
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12 
ONVERT 18-36 - :01:4 VAX-11 Bliss-32 V4.0-742 
DESC 1 =300- 138% 99:04:46 DISKSVMSMASTER: CCONV.SRCJADDKEY.832; 
TTL oS UEF KEY_DESC’ 
TINE $ UF F_REY_BESC : ALSSTUFF_KEY_DESC NOVALUE = 


i Functional Description: 


Does the stuffing of the index descriptor from the key xab 


i Calling Sequence: 


STUFF _KEY_DESC() 


i Input Parameters: 
none 

i Implicit Inputs: 

i Qutput Parameters: 
none 

i Implicit Outputs: 

i Routine Value: 
none 

i Routines Called: 
none 


i Side Effects: 
i none 


BEGIN 


DEF INE_XAB; 
DEF INE_KEY_DESC; 


: Zero the descriptor 
CHSFILL( O,KEYSC_BLN,.KEY_DESC ); 
: Copy the xab into the descriptor (this cheat should always work) 
CHSMOVE( XABSC_KEYLEN = 4,XAB C XABSB_IAN J,KEY_DESC C KEYSB_IANUM } ); 
: Copy key name if any 
IF kas C XABSL_KNM ] NEQU 0 
CHSMOVE( 32,.XAB C XABSL_KNM ),KEY_DESC C KEYST_KEYNAM ) ); 
H Stuff the data type into seq0 type (prologue 3 screwup) and zero the rest 
KEY_DESC C KEYSB_TYPEO J) = .KEY_DESC [C KEYSB_DATATYPE ); 


SKEY VAX=11 CONVERT ep- :01:4 VAX-11 Bliss-32 V4.0-742 p 9 
vo STUFF _KEY_DESC If: sen 1944 99:93:08 DISKSVMSMASTER: CCONV. SRCIJADDKEY.B32;1° 7" (a) \ 
3 359 CHSFILL( 0,7,KEY_DESC C KEYSB_TYPE1 J ); 

; ! Finally say that the index is not initialized 
3 j 3 KEY_DESC C KEYSV_INITIDX } = _SET; 
3 5 38 RETURN 
; 88 END; 
3C BB 00000 STUFF_KEY DESC: 
~"POSHR #*M<R2,R3,R4,R5> : 0535 
0060 8F 00 6E 00 2¢ 9008 MOVCS #0, (SP), #0, #96, (KEY_DESC) ; 0576 
06 AB 08 AA 0048 ze 2 OA mOvCc3 472, (x08). 6(KEY_DESC) + 0580 
38 AA OD 1 TSTL © 56 > 0584 
06 1 001 BEQL \ ; 
34 AB 38 84 1 MOVC3 . @56(XAB), S2(KEY_DESC) > 0586 
58 AB 11 AB 901 1$: MOVB 17 (KEY apes 0). » BB CKEY BESC) ; 9390 
07 00 6E ic 00 2c 90 2 MOVCS #0, (SP), &@ 9TKEY_DESC) ; 0592 
10 AB 10 88 00029 BISB2 #16, 16(KEY_DESC) : 05 
3¢ A 90 p POPR #°M<R2,R3,RZ,R5> : $208 


: Routine Size: 48 bytes, Routine Base: _CONVSCODE + 0103 
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* 
2 


ZSBTTL ‘LOAD KEY' 
GLOBAL ROUTINE ADDSSLOAD_KEY : ALSLOAD_KEY = 


Functional Description: 


Calling Sequence: 


Pb — — — — — — — 


Input Parameters: 
none 


Implicit Inputs: 
Output Parameters: 
none 
Implicit Outputs: 
Routine Value: 


Routines Called: 


MEUN OC OONAOVUES WN ⏑⏑N ⏑ UN 


Mot pat any sees ere nad ps ah yee Nee 4 


Side Effects: 
none 


E 
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1 
1 
BEGIN 
DEF INE_KEY_DESC; 


EWN OONAOULSWN —"OVOOanour 


0 
4 KEY_DE 
5 DEF INE~CTX~GLOBAL; 
g 4 DEF INE~BUCRET_GLOBAL; 
5 i LOCAL FATUS: 
50 2 , 
51 Z : Get the new key 
if 5 CONVSSSET_KEY_DESC( -CONVSGL_ADD_DELE_KEY ); 
3 ; Init the fast load process 
3 : CONVSSINIT_FAST_LOAD( .KEY_DESC C KEYSB_KEYSZ ) ); 
re : CONVSGL_WORK_F = 2; 
ge? 5 !' Set up the sort for the secondary key. The sort is a INDEX sort. 
666 4 ! This type of sort will produce a file of RFA‘’s and keys of the 
$37 5 primary data level we just made. 
665 $ iF NOT ( STATUS = CONVSSSORT_SECONDARY() ) 
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DSKEY VAX-11_ CONVERT S$ep-1984 74 VAX-11 Bi ist -32 V4.0-742 1 
voe LOAD_KEY 1ergeb=1382 98:94:08 «NTS esimGhaStenccYonys eee zappKey.e32:1°"" «9) 
3 £66 THEN 
: RETURN .STATUS; 

3 og : Now that the file is sorted get the data and load it in. 
3 ent CONVSSLOAD_SECONDARY(); 
3 or H Write the prologue (area desc) 
; 679 CONVSSWRITE_PROLOGUE (); 
3 ef? ! and the key descriptor 
; 8 CONVSSWRITE_KEY_DESC(); 
: 681 RETURN 1 
; 6 ¢ 
; 68 END; 
7E 59 7D 00000 ADDSSLOAD_KEY:: 
mOva $ 960 
0000' fs b 00 ; PUSHL 86 ADD_DELE_KEY 3: 064 
00006 00 BSBW 20tk VSSSET_KEY DESC : 
6E 14 OOA MOVZBL 9r DESC) “(SP) 3: 0649 
0009 6 3 9 0000 BSBW CONV SINIT_FAST_LOAD 3 
5E 001 ADDL2 3 
0000G CF 0014 MOVL #3. ONVSGL_WO 3 8631 
00 6 8 0019 BSBW CONVSSSORT | SECONDARY : 57 
OE § Bate BLBC LMF $~ : 
00006 50 1F BSBW CONV st SECONDARY 3: 0663 
0000G CF Fe 8 CALLS 40, VS$SORITE_PROLOGUE 3: 0667 
0006 3 BSBW CONV SORITE KEY. “DESC 3: 0671 
50 1 00 8 A MOVL 3 de 
59 8E p 02D 1$: Mov (sb) s. Rd : 067 
05 000 RSB 8 

: Routine Size: 49 bytes, Routine Base: _CONVSCODE + 0203 
3 O86 16 1 
3 5 77 O END ELUDOM 
: PSECT SUMMARY 
: Name Bytes Attributes 
; _CONVSGLOBAL NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, Pic AL 1euts} 

; —CONVSCODE 566 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


—XR VON REF | ib: -}to-19H 93:9b:g  HESUMGMASTERCYONY She JADDKEY.832:1°%" (35 


Library Statistics 


: sara onea Symbols an em ee we ee Pages Processing 
3 File Total Loaded Percent Mapped Time 

: _$255$DUA28:(SYSLIBILIB.L32;1 1861 100 :01. 

3 miiitim AB: CONV. SRC acie ONVERT.L32;1 16 $3 if 1? 838 
3 COMMAND QUALIFIERS 

3 BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$: ADDKEY/OBJ=OBJ$:ADDKEY MSRC$:ADDKEY/UPDATE=(ENHS$: ADDKEY) 
3 Size: 564 code + 4 data bytes 

3 Run Time: 8 9 

3 Elepsed Time: :50.2 

3 Lines/CPU Min: 272 

; — Ak fade 1616 

3 canery Ue Used: 139 pages 

3; Compilation Complete 


AL EQUIPMENT CORPORATION 
DENTIAL AND PROPRIETARY 


DIG 
CON 
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